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^ I Abstract 

I We give a new proof of P-time completeness of Linear Lambda Calculus, which 

Q ' was originally given by H. Mairson in 2003. Our proof uses an essentially different 

^ "I ■ Boolean type from the type Mairson used. 

^ [ Moreover the correctness of our proof can be machined-checked using an implemen- 

O ; tation of Standard ML. 

^ ; 1 Introduction 

, In IIMai04L H. Mairson gave a proof of P-time completeness of Linear Lambda Calculus. 

It is an excellent exercise of linear functional programming. The crucial point of the proof 
is that the copy function of truth values is representable by a linear term: this is relatively 
CT) • easy in Affine Lambda Calculus as shown in [,Mai04.| , but quite difficult in Linear Lambda 

Calculus. So, the key issue there is to avoid the use of the weakening rule. The issue was 
also treated from a different angle in [IMat071 . which established typed Bohm theorem 
^ I without the weakening rule. 

In this paper we give a new proof of P-time completeness of Linear Lambda Calculus. 
Our proof is different from that of r Mai041 in the following points: 

• In ['Mai041 Mairson used the base Boolean type Bmh = p—o p—o{p—o p—o p) —o p 
while we use B = (/> — op) — o(j9 — op) ® ^p). Although both have two normal 
forms, they are different because while Bmh reduces to itself by the linear distribu- 
tive transformation given in Section 3 of [|Mat07ll (which was called third order 
reduction in UMatOVII ). B reduces to 

Kred = p^p^{p^p)^{p^p^p)^p, 

which has six normal forms. 

• All the two variable functions that can be representable over Bmh without any poly- 
morphism are only exclusive or and its negation, but in B they are all the boolean 
functions except for exclusive or and its negation, i.e., fourteen functions. 
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• our proof is also an interesting application of the linear distributive transformation. 

As in IIMai04ll . our proof is also machine-checkable: all the linear A -terms in this paper are 
also well-formed expressions of Standard ML [iMTHM971 . So the reader may confirm the 
correctness of our proof using an implementation of Standard ML. We used the interactive 
system of Standard ML of New Jersey. 

2 Typing Rules 

We give our term assignment system for Linear Lambda Calculus. Our system is based 
on Natural Deduction, e.g., given in [|Tro92l . which is equivalent to the system based on 
Sequent Calculus or proof nets in [|Gir871 (see [|Tro921 ). Its notation is unusual in the 
Linear Logic community, but its purpose is to make our proof machine-checkable. 

Types 

A ::= ' a | A1*A2 | A1->A2 

The symbol ' a stands for a type variable. On the other hand Al * A2 stands for the tensor 
product Al (g) A2 and Al ->A2 for the linear implication Al ^ A2 . 

Terms We use x , y , z for term variables, it for finite lists of term variables, and 

t , s for general terms. 

Term Assignment System 

xrAhxrA 

x:A,y:rht:B l^:rht:A->B ^:Ahs:A 

Y":rh fn x=>t :A->B it -.T,^ : Ah ts :B 

lt:r\-s:A 'y:A\-s:B l^:rhs:A*B x : A, y : B, ^ : A h t : C 

l?:r,Y":Ah (s,t) : A*B l?:r, y^:Ah let val (x, y) =s in t end:C 

Moreover, function declaration 
fun f xl x2 •■■ xn = t 
is interpreted as the following term: 

f = fn xl => (fn x2 => ( ■■■ (fn xn => t) ■■■ )) 
We only consider closed term (or combinator) 
h t : A. 

The following proposition is proved easily by structural induction: 

Proposition 2.1 Ifxl : Al , . . . , xn : An | -t : B then 

fun f xl x2 ■■■ xn = t 

is a well formed function declaration of Standard ML. 
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Term Reduction Rules Two of our reduction rules are 

(/3): (fn x=>t)s t[s/x] 

(®-red): let val (x,y) = (u,v) in w end =^ w[u/x,v/y] 

In fact, in Standard ML, s , u , v must be values in order for these rules to be applied. But 

Linear Lambda Calculus satisfies SN and CR properties. So we don't need to care the 

evaluation order. Then note that if a function f is defined by 

fun f xl x2 ■■■ xn = t 

and 

xl :A1, . . . , xn:An I -s :B, |-tl:Al, |-tn:An 
then, we have 

f tl ■•• tn t [tl/xl, tn/xn] . 

Moreover we need the following reduction for a theoretical reason, which is absent from 
Standard ML: 

(t]): t ^ (fn X => t x) 

In the following =pj^ denotes the congruence relation generated by the three reduction 
rules. 

3 Review of Mairson's Proof 

In this section we review the proof in [|Mai041 briefly. Below by normal forms we mean 
jSr^-long normal forms. The basic construct is the following term: 

- fun Pair x y z = z x y; 

val Pair = fn : 'a -> 'b -> ('a -> 'b -> 'c) 'c 

Using this, we define True and False: 

- fun True x = Pair x y; 

val True = fn : 'a -> 'b -> ('a -> 'b -> 'c) -> 'c 

- fun False x = Pair y x; 

val True = fn : 'a -> 'b -> ('b -> 'a -> 'c) -> 'c 

Note that these are the normal forms of Bmh- In order to define the term Copy two 
auxiliary terms are needed: 

- fun I X = x; 

val I ^ f n : ' a -> ' a 

- fun id B = B I I I ; 

val id = fn : (('a -> 'a) -> ('b -> 'b) -> ('c -> 'c) -> 'd) -> 'd 

The formal argument B is supposed to receive True or False. It is easy to see that 

id True ^* I, id False ^* I, 
Then the term Copy is defined as follows: 

- fun Copy P = P (Pair True True) (Pair False False) 
(fn U => fn V => 

U (fn ul => fn u2 => 
V (fn vl => fn v2 => 
( (id vl) ul, (id v2) u2) ) ) ) ) 

We omit its type since it is too long. The formal argument P is supposed to receive True 
or False. While llMai04ll uses continuation passing style, the above term not since we 
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have the (8)(= *) -connective and can do a direct encoding using this connective. Then 

Copy True; 

val it= (fn, fn) : (' a -> 'b -> ('a -> 'b -> 'c) -> 'c)*('d -> 'e -> ('d -> 'e -> ' f ) -> ' f) 

Copy False; 

val it=(fn,fn):('a -> 'b -> ('b -> 'a -> 'c) -> 'c)*('d -> 'e -> ('e -> 'd -> ' f) -> ' f) 

(in fact, since SML/NJ does not allow any function values, it gives warnings, but the 
results are basically the same). These are (True, True) and (False, False) 
respectively since 

Copy True ((id False) True, (id False) True) 
Copy False ((id True) False, (id True) False) 

The basic observation here is that 

• the type of P is unifiable with that of both True and False; 

• the types of Copy True and Copy False are desirable ones, i.e., both have 
Bmh ® Bmh as a instance. 

Since the and gate can be defined similarly and more easily and the not gate without any 
ML-polymorphism, it is concluded that all the boolean gates can be defined over Bmh- 

4 A Partial Solution 

In this section we present our failed attempt. 

Let the following two terms be True' and False' : 

fun True' x y f = Pair x (f y) ; 

val True' = fn : 'a -> 'b -> ('b -> 'c) -> ('a -> 'c -> ' d) -> 'd 

fun False' x y f = Pair (f x) y; 

val False' = fn : 'a -> 'b -> ('a -> 'c) -> ('c -> 'b -> 'd) -> 'd 

Both are normal forms of Bred = p —o p —o(p —o p) —o(p —o p —o p) —o p, which have the 
six normal forms. Below we define a copy function for them as in the previous section. 
In order to do that, we need several auxiliary terms: 

fun not' f X y g h = f y X g (fn u => fn v => (h v u) ) ; 

val not' = fn 

: ('a -> 'b -> 'c -> Cd -> 'e -> ' f) -> ' g) 
-> 'b -> 'a -> 'c -> Ce -> 'd -> 'f) -> 'g 

The term not ' is the not gate for the new boolean values. 

fun swap f g = f (fn u => fn v => g v u) ; 

val swap = fn : (('a -> 'b -> 'c) -> 'd) -> ('b -> 'a -> 'c) -> 'd 

We note that 

swap (Pair False' True') g =^8^ (Pair False' True')(fn u => f n v => g u v) 

=p.fj g True' False' =j3,j Pair True' False' g 

The term newid is similar to id, but receives four arguments: 

fun newid B' = B' I I I I; 
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val newid = fn 

: (('a -> 'a) -> ('b -> 'b) -> ('c -> 'c) -> ('d -> ' d) -> 'e) -> 'e 

The term constNot is also similar to id, but always returns not ' : 

fun constNot B' = B' I not' I I; 

val constNot - fn 
: ( ('a -> 'a) 

-> (Cb -> 'c -> 'd -> Ce -> 'f -> 'g) -> 'h) 
-> 'c -> 'b -> 'd -> ('f -> 'e -> 'g) -> 'h) 
-> (' i -> ' i) -> (' j -> ' j) -> ' k) 
-> 'k 

The formal argument B' in newid and constNot is supposed to receive True' and 
False' . We can easily see 

newid True' I, newid False' I, 

constNot True' not, constNot False' not 

Under the preparation above, we can define Copy' as follows: 

fun Copy' P' = P' (Pair False' True') (Pair False' True') swap 
(fn U => fn V => 
U (fn ul => fn u2 => 
V (fn vl => fn v2 => 

( (constNot vl) ul, (newid v2) u2) ) ) ) ; 

Again we omit the type. The formal parameter P is supposed to receive True' or 
False' . Then 

Copy' True' ((constNot True) False, (newid False) True) 

(True, True) 

Copy' False' ((constNot False) True, (newid True) False) 

(False, False) 

Unfortunately we could not find a term that represents the and gate over True' and 
False' . So, we must find a similar, but different substitute. Fortunately we have found 
a solution described in the next section. 

5 Our Solution 

Our solution uses the type B = (p ^ p) -<^{p ^ p) ® {p p), which has the two normal 
forms: 

fun True" x = (fn z => z, fn y => x y) ; 

val True" = fn : ('a -> 'b) -> ('c -> 'c) * ('a -> 'b) 

fun False" x = (fn y => x y, fn z => z) ; 

val False" = fn : ('a -> 'b) -> ('a -> 'b) * ('c -> 'c) 

The linear distributive transformation (which was called third-order reduction in [|Mat071 ') 
turn B into Bred- The next term is its internalized version: 

fun LDTr h x y f z 

= let val (k, 1) = h f in z (k x) (1 y) end; 
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val LDTr = fn 

: ('a -> Cb -> 'c) * ('d -> 'e)) 

-> 'b -> 'd -> 'a -> Cc -> 'e -> ' f) -> 'f 

Then 

LDTr True" =j3,j True', LDTr False" =j3,j False' 
Our not gate for True" and False" is 

fun not" h f = let val (k, 1) = h f in (1, k) end; 

val not" = fn : ( ' a -> ' b * ' c) -> ' a -> ' c * ' b 

Then 

not" True" =jgjj False", not" False" =j3jj True" 

Moreover we can write down a and gate for them as follows: 

fun and" f g h = let val (u, v) = g (fn k => h k) in 
(let val (x, y) = f (fn w => v w) in 
(fn s => X (us), fn t => y t) end) end; 

val and" = fn 

: (('a -> 'b) -> Cc -> 'd) * ('e -> ' f ) ) 
-> (Cg -> 'h) -> ('i -> 'c) * ('a -> 'b)) 

-> Cg -> 'h) -> Ci -> 'd) * Ce -> ' f ) 

Note that the definition of and" does not use any ML-polymorphism. Then 

and" True" True" —pjj True", and" False" False" False", 
and" True" False" False", and" False" True" =^3^ False" 

Next, we define a copy function for True" and False". In order to do that, we need a 

modified version of constNot: 

fun constNot" B" = B" I not" I I; 

Then we can easily see 

newid True" I, newid False" I, 

constNot" True" not, constNot" False" ^* not 

Under the preparation above, we can define Copy", which is a modified version of 
Copy' as follows: 
fun Copy" P 

= LDTr P (Pair False" True") (Pair False" True") swap 
(fn U => fn V => 

U (fn ul => fn u2 => 
V (fn vl => fn v2 => 

((constNot" (LDTr vl)) ul, (newid (LDTr v2)) u2)))); 
Then 

Copy" True" (True", True"), Copy" False" (False", False") 
From what precedes we can conclude that we can represent all the boolean gates over B. 
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6 Concluding Remarks 



In this paper we showed that Bmh is not the only choice in order to estabUsh P-time com- 
pleteness of Linear Lambda Calculus. We note that we found the term and" manually 
using proof nets syntax (and then translating the proof net into and"), but Copy' and 
Copy" interactively with Standard ML of New Jersey. 

From our result a natural question comes up: which linear type other than Bmh and B and 
its two normal forms establishes P-time completeness of Linear Lambda Calculus? For 

example it is unlikely that B' = p ^{p ^ p) '<^{p ^ p) ^ p and its two normal forms 
establish that. But it is an easy exercise to show that {p®p) —o{p®p) and its two normal 
forms can do that. 

As wrote before, we could not prove that Bred and its normal forms True' and False' 
establish P-time completeness of Linear Lambda Calculus. But we also could not prove 
that they cannot establish that. At this moment we do not have any idea to do that. Our 

n 

, " V 

type B and its generalization {p—op)—o[p—op)®---®[p—op) have further interesting 
properties. For example we can establish weak typed Bohm theorem over B. But the 
subject is beyond the scope of this paper, and will be discussed elsewhere. 
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